home *** CD-ROM | disk | FTP | other *** search
/ Aminet 31 / Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso / Aminet / comm / www / IBrowseScripts.lha / ibrowsescripts / rexx / fail_online.miamirx < prev    next >
Text File  |  1998-10-28  |  664b  |  25 lines
  1. /* what to do when miami fails to go online.. */
  2.  
  3. OPTIONS RESULTS
  4. OPTIONS FAILAT 21
  5. call addlib('libs:rexxreqtools.library',0,-30)
  6.  
  7. title=    'IBrowseScripts'
  8. what_but=    '_Retry|_ShowMiami|_Cancel'
  9. tags=    'rt_pubscrname=IBROWSESCREEN'  /* Change here the name of the screen IBROWSE runs */
  10. where_txt='Online failed! Select action.'
  11. preset=0
  12.  
  13. IF SHOW('Ports','BUSYWIN.1') THEN DO
  14.  ADDRESS 'BUSYWIN.1' 'QUIT'
  15. END
  16.  
  17.  
  18.  
  19.  
  20.  
  21.     sel=rtezrequest(where_txt,what_but,title,'rtez_defaultresponse=1') 
  22.     IF sel=0 then Exit
  23.     IF sel=1 then ADDRESS "COMMAND" 'run sys:rexxc/rx ibrowse:rexx/on-offline.miamirx'
  24.     IF sel=2 then ADDRESS "COMMAND" 'run sys:rexxc/rx ibrowse:rexx/showmiami.ibrx'
  25.